;;;Modemacro - shows full <path><filename> Ortho Snap Tablet Pspace
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun C:STAT ( / )
  (setq pthstr (strcase(getvar"dwgprefix")T))
  (setq nmstr (strcase(getvar"dwgname")T))
  (setvar "modemacro"
    (strcat
;;;      "$(getvar,clayer)"
;;;      "$(if,$(getvar,orthomode), O)"
;;;      "$(if,$(getvar,snapmode), S)"
;;;      "$(if,$(getvar,tabmode), T)" " "
;;;;      "$(if,$(and,$(=,$(getvar,tilemode),0),$(=,$(getvar,cvport),1)), Pspace)" " "
      pthstr
      nmstr
    );strcat
  );setvar
  (princ)
);defun C:STAT